set ws=WScript.CreateObject("WScript.Shell") 
path = createobject("Scripting.FileSystemObject").GetFile(Wscript.ScriptFullName).ParentFolder.Path + "\vpsc.exe"
re = ws.Run(path,0,false)